! A fortran95 program for G95
! By WQY
program main
    use hdf5
      implicit none
    CHARACTER(LEN=*) ,PARAMETER :: filename_result="res/result.hdf"
CHARACTER(LEN=*) ,PARAMETER :: dsetname_result="could_mark"

INTEGER(HID_T) :: result_file_id !输出文件文件id
 INTEGER(HID_T) :: result_dset_id
integer :: error


CALL h5open_f(error)
 CALL h5fopen_f (filename_result, H5F_ACC_RDWR_F, result_file_id, error)
CALL h5dopen_f(result_file_id, dsetname_result, result_dset_id, error)
print*,result_dset_id
end
